-- stack: in
-- format: 8 (HyperCard 1)
-- flags: 0x1000 (none)
-- protect password hash: 0
-- maximum user level: 5 (scripting)
-- window: Rect(x1=0, y1=0, x2=0, y2=0)
-- screen: Rect(x1=0, y1=0, x2=0, y2=0)
-- card dimensions: w=0 h=0
-- scroll: x=0 y=0
-- background count: 2
-- first background id: 2698
-- card count: 21
-- first card id: 2878
-- list block id: 8184
-- print block id: 3412
-- font table block id: 0
-- style table block id: 0
-- free block count: 0
-- free size: 0 bytes
-- total size: 68928 bytes
-- stack block size: 4608 bytes
-- created by hypercard version: 0x01208000
-- compacted by hypercard version: 0x01208000
-- modified by hypercard version: 0x01208000
-- opened by hypercard version: 0x01208000
-- patterns[0]: 0x0000000000000000
-- patterns[1]: 0x0000220000002200
-- patterns[2]: 0x8800220088002200
-- patterns[3]: 0xCC003300CC003300
-- patterns[4]: 0xCC883322CC883322
-- patterns[5]: 0xEE88BB22EE88BB22
-- patterns[6]: 0xEECCBB33EECCBB33
-- patterns[7]: 0xFFCCFF33FFCCFF33
-- patterns[8]: 0xFFEEFFBBFFEEFFBB
-- patterns[9]: 0xFFFFFFBBFFFFFFBB
-- patterns[10]: 0x8010022001084004
-- patterns[11]: 0xFFFFFFFFFFFFFFFF
-- patterns[12]: 0x8822882288228822
-- patterns[13]: 0x1122448811224488
-- patterns[14]: 0xC4800C6843023026
-- patterns[15]: 0xB130031BD8C00C8D
-- patterns[16]: 0xAA00AA00AA00AA00
-- patterns[17]: 0x8822552288225522
-- patterns[18]: 0x8855225588552255
-- patterns[19]: 0x77DD77DD77DD77DD
-- patterns[20]: 0x8000000000000000
-- patterns[21]: 0xAA55AA55AA55AA55
-- patterns[22]: 0x038448300C020101
-- patterns[23]: 0x8244394482010101
-- patterns[24]: 0x8814224188412214
-- patterns[25]: 0x8080413E080814E3
-- patterns[26]: 0x22048C7422179810
-- patterns[27]: 0xBE808808EB088880
-- patterns[28]: 0x25C8328964244C92
-- patterns[29]: 0xA29C41BE2AC914EB
-- patterns[30]: 0x40A00000040A0000
-- patterns[31]: 0x8040200002040800
-- patterns[32]: 0xAA00800088008000
-- patterns[33]: 0xFF80808080808080
-- patterns[34]: 0x081C22C180010204
-- patterns[35]: 0xFF808080FF080808
-- patterns[36]: 0xF87422478F172271
-- patterns[37]: 0xBF00BFBFB0B0B0B0
-- patterns[38]: 0xFF7FBE5DA2418000
-- patterns[39]: 0xFAF5FAF5A050A050
-- checksum: 0x0
----- HyperTalk script -----
-------------------------------------------------------------------
-- This stack was created with Bookbinder 1.0.1, which aids in
-- the creation of HyperCard documents.  Bookbinder is shareware
-- by Ralph Gonzalez, PO Box 54, Newark, DE 19711.  Sept 20, 1990.
-------------------------------------------------------------------

on openStack
  show menuBar
  global stackJustPrinted
  put false into stackJustPrinted
  global gettingHelp
  put false into gettingHelp
  global xrefdepth
  put 0 into xrefdepth
  global showButton
  put false into showButton
  global cardJustPasted
  put false into cardJustPasted
  global cardJustDeleted
  put false into cardJustDeleted
  global deletedCard
  put card field "deletedCard" of card "contents" into deletedCard
  global bookmark1
  global bookmark2
  put card field "bookmark1" of card "contents" into bookmark1
  put card field "bookmark2" of card "contents" into bookmark2
  pass openStack
end openStack

on help
  put id of this card into card field "return card" of card "help"
  visual iris open
  go card "help"
end help

on newCard
  show background button "Update Page Nos" of card "contents"
  pass newCard
end newCard

on doMenu choice
  global showButton
  global cardJustDeleted
  global deletedCard
  global cardJustPasted
  global stackJustPrinted
  if choice is "Print Stack..." then
    push card
    go card "contents"
    show field "footnote1"
    show field "footnote2"
    put true into stackJustPrinted
    pass doMenu
  end if
  if choice is "Paste Card" then
    put true into showButton
    -- can't show button immediately or the pasted card will have
    -- a different background
    put true into cardJustPasted
  end if
  if choice is "Undo" then
    put true into cardJustPasted
    -- in case you use "Undo" to paste a card
  end if
  if choice is "Cut Card" or choice is "Delete Card" then
    show background button "Update Page Nos" of card "contents"
    -- show button before cut in case paste follows, to prevent
    -- change in background before paste
    set lockScreen to true
    push card
    go card "contents"
    get the id of this background
    pop card
    set lockScreen to false
    if it is the id of this background then
      -- i.e. deleting a true "page" card
      if deletedCard is not "" then
        answer "Please update page numbers first" with "OK"
      else
        put the id of this card into deletedCard
        put true into cardJustDeleted
        pass doMenu
      end if
    else
      put true into cardJustDeleted
      pass doMenu
    end if
  else
    pass doMenu
  end if
end doMenu

on idle
  global showButton
  global cardJustPasted
  if cardJustPasted then
    put false into cardJustPasted
    -- if pasted card has "page" background, see idle handler for "page"
  end if
  if showButton then
    put false into showButton
    show background button "Update Page Nos" of card "contents"
  end if
  pass idle
end idle

on closeStack
  global deletedCard
  put deletedCard into card field "deletedCard" of card "contents"
  global bookmark1
  global bookmark2
  put bookmark1 into card field "bookmark1" of card "contents"
  put bookmark2 into card field "bookmark2" of card "contents"
  pass closeStack
end closeStack

function idToNumber theID
return the number of card id theID
end idToNumber